From 773c1fd398fd3506f0d2bc6c28e65a51b392715d Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Mon, 5 Apr 1993 23:10:10 +0000 Subject: [PATCH] * editfns.c (Fcurrent_time_zone): Return a list whose elements are nil if the time zone information is unavailable, instead of signalling an error. --- src/editfns.c | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/editfns.c b/src/editfns.c index 99365930c23..7b3db6203d3 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -596,7 +596,11 @@ STANDARD is a string giving the name of the time zone when no seasonal\n\ SAVINGS is a string giving the name of the time zone when there is a\n\ seasonal time adjustment in effect.\n\ If the local area does not use a seasonal time adjustment,\n\ -SAVINGS-FLAG is always nil, and STANDARD and SAVINGS are equal.") +SAVINGS-FLAG is always nil, and STANDARD and SAVINGS are equal.\n\ +\n\ +Some operating systems cannot provide all this information to Emacs;\n\ +in this case, current-time-zone will return a list containing nil for\n\ +the data it can't find.") () { #ifdef EMACS_CURRENT_TIME_ZONE @@ -612,8 +616,7 @@ SAVINGS-FLAG is always nil, and STANDARD and SAVINGS are equal.") Fcons (build_string (savings), Qnil)))); #else - error - ("current-time-zone has not been implemented on this operating system."); + return Fmake_list (4, Qnil); #endif } -- 2.30.2